home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / RBBS-FIX.BAT < prev    next >
DOS Batch File  |  1987-03-26  |  11KB  |  323 lines
  1. ECHO OFF
  2. CLS
  3. IF 0326 == %1 GOTO LEVELOK
  4. ECHO ' Incorrect RFIX version specified.  Please read the following before
  5. ECHO ' trying again.
  6. :ERROR1
  7. ECHO '
  8. ECHO '  This batch file should be invoked with the command
  9. ECHO '
  10. ECHO '                RBBS-FIX 0326 XXXXX (SEE NOTE)
  11. ECHO '
  12. ECHO '  "0326" is the parameter passed to this .BAT file that indicates
  13. ECHO '  this is for upgrading RBBS-PC version CPC15-1A with all the
  14. ECHO `  temporary fixes that have been identified through 03/26/87
  15. ECHO '  by applying the .MRG files contained in RFIX0326.ARC against the
  16. ECHO '  unmodified source code of RBBS-PC version CPC15-1A.
  17. ECHO '  
  18. ECHO '  NOTE:  Replace the XXXXX with one of the following:
  19. ECHO '
  20. ECHO ' QB1.00  if using the QuickBasic version 1.00 compiler (not recommended)
  21. ECHO ' QB1.02  if using the QuickBasic version 1.02 compiler (acceptable)
  22. ECHO ' QB2.00  if using the QuickBasic version 2.00 compiler (not recommended)
  23. ECHO ' QB2.01  if using the QuickBasic version 2.01 compiler (recommended)
  24. ECHO ' IBM2.00 if using the unmodified IBM version 2.00 compiler (acceptable)
  25. ECHO '
  26. ECHO ' YOU MUST USE CAPITAL LETTERS FOR ALL RBBS-FIX.BAT PARAMETERS!   
  27. ECHO '
  28. GOTO END
  29. :LEVELOK
  30. IF QB1.00 == %2 GOTO COMPILER
  31. IF QB1.02 == %2 GOTO COMPILER
  32. IF QB2.00 == %2 GOTO COMPILER
  33. IF QB2.01 == %2 GOTO COMPILER
  34. IF IBM2.00 == %2 GOTO COMPILER
  35. ECHO ' Incorrect compiler specified!  Read the above before trying again.
  36. GOTO ERROR1
  37. :COMPILER
  38. CLS
  39. ECHO '  This .BAT file is supplied to assist you in applying temporary
  40. ECHO '  fixes to RBBS-PC version CPC15-1A.  This .BAT file makes some
  41. ECHO '  fundamental assumptions about your configuration:
  42. ECHO '     1.  BLED version 1.3 dated April 12, 1986 or later is available.
  43. ECHO '     2.  1.8 MB of disk storage is available to contain all the
  44. ECHO '         files necessary to apply, compile and link the revised
  45. ECHO '         version of RBBS-PC that contains these temporary fixes.
  46. ECHO '     3.  Either the QuickBASIC (versions 1.0, 1.02, 2.0, OR 2.01) or 
  47. ECHO '         the unmodified IBM Version 2.0 BASIC compiler is available.
  48. ECHO '
  49. ECHO '  There is no "ASSUMED" compiler in this .BAT file. 
  50. ECHO '  You have selected the use of the %2 compiler options.             
  51. ECHO '
  52. ECHO '  If the above assumptions are incorrect, hit Ctrl-Break to
  53. ECHO '  terminate this batch job.  Otherwise .....
  54. pause
  55. CLS
  56. ECHO '
  57. ECHO '  The RBBS-FIX.BAT file requires access to:  
  58. ECHO '    ANSI.OBJ     BDRIVEC2.OBJ  XMODEM.OBJ   RBBS-PC.BAS   RBBSDV.OBJ  
  59. ECHO '    BASCOM.EXE   BLED.EXE      LINK.EXE     RBBSSUB1.BAS  RBBSUTIL.OBJ
  60. ECHO '    BCOM10.LIB   CONFIG.BAS    PC-NET.OBJ   RBBSSUB2.BAS  RBBSML.OBJ
  61. ECHO ' (or BCOM20.LIB) CNFG-SUB.BAS  QBARCV2.OBJ  RBBS-VAR.BAS  XMODEM.OBJ
  62. IF %2 == IBM2.00 GOTO IBM2
  63. ECHO '                 GWCOM.OBJ     PREFIX.OBJ                 10-NET.OBJ
  64. GOTO BYPASS1
  65. :IBM2
  66. ECHO '                 IBMCOM.OBJ                               10-NET.OBJ
  67. :BYPASS1
  68. ECHO '             
  69. ECHO '  IF access to these files is not available from the drive and/or
  70. ECHO '  the DOS subdirectory that you are running this .BAT file out of
  71. ECHO '  hit Ctrl-Break to terminate this batch file.  If access to these 
  72. ECHO '  files is available to RBBS-FIX.BAT ......
  73. pause
  74. ECHO '  The following files from RFIX%1.ARC must be unarchived and put  
  75. ECHO '  in the same directory as the above pre-existing files:            
  76. ECHO '
  77. ECHO '    BLED.CFG     R-PC%1.MRG      
  78. ECHO '    CNFG%1.MRG RSB1%1.MRG   
  79. ECHO '    CSUB%1.MRG RSB2%1.MRG
  80. ECHO '                 RVAR%1.MRG
  81. ECHO '
  82. ECHO '  NOTE:  The "%1" indicates that these are .MRG files to be 
  83. ECHO '         applied to the unmodified source code for CPC15-1A
  84. ECHO '
  85. ECHO '  If all of the above files are available as indicated above....
  86. pause
  87. CLS  
  88. ECHO '  All temporary fixes are supplied as .MRG files against the original
  89. ECHO '  source code for RBBS-PC version CPC15-1A.  You may distribute both
  90. ECHO '  the original source code and RFIX%1.ARC.  You MAY NOT distribute
  91. ECHO '  either 
  92. ECHO '
  93. ECHO '         1.  the original source code with these fixes applied (i.e.
  94. ECHO '             modified source code), or 
  95. ECHO '
  96. ECHO '         2.  the .EXE files generated by compiling the source code that
  97. ECHO '             results from applying these .MRG files to the original
  98. ECHO '             source code (i.e. modified versions of RBBS-PC)
  99. ECHO '
  100. ECHO '  without violating the limited license under which your use of RBBS-PC
  101. ECHO '  is granted and RBBS-PC has always been distributed.
  102. ECHO ' 
  103. ECHO '  If you have read BUL6%1, reviewed all the .MRG files as well as this
  104. ECHO '  .BAT file, understand what each does (as opposed to to what it may say
  105. ECHO '  it does), and are willing to assume the sole responsibility for whatever
  106. ECHO '  may happen.......
  107. pause
  108. ECHO '
  109. ECHO '  Remember that these are "temporary fixes" and:
  110. ECHO '  
  111. ECHO '     1.  may not exist in this form in future versions of RBBS-PC.
  112. ECHO '  
  113. ECHO '     2.  may not have been tested together.
  114. ECHO '   
  115. ECHO '     3.  may create other problems.
  116. ECHO '  
  117. ECHO '     4.  may not work under all configurations.
  118. ECHO '  
  119. ECHO '     5.  may not "fix" what they purport to fix for your system.
  120. ECHO '
  121. ECHO '  
  122. ECHO '  Indicate your acceptance of the above conditions under which these 
  123. ECHO '  "temporary fixes" have been supplied to you for your consideration
  124. ECHO '  and convience and ........
  125. ECHO '
  126. pause
  127. ECHO '  The basic sequence of what is about to happen is:
  128. ECHO '  
  129. ECHO '     Original CPC15-1A                 %1.MRG file with    
  130. ECHO '         source code     BLED.CNFG       temporary fixes
  131. ECHO '               !             !                ! 
  132. ECHO '              \!/           \!/              \!/
  133. ECHO '             +---------------------------------+
  134. ECHO '             !             BLED                !======+Modified BAS file
  135. ECHO '             +---------------------------------+              !
  136. ECHO '                                                             \!/
  137. ECHO '                                                   +--------------------+
  138. ECHO '                                                   !   BASIC compiler   !
  139. ECHO '                                                   +--------------------+
  140. ECHO '                                                              !
  141. ECHO '                +----------------------+                     \!/
  142. ECHO '                !         LINK         !+===========Modified OBJ file
  143. ECHO '                +----------------------+
  144. ECHO '                            !
  145. ECHO '                           \!/
  146. ECHO '                  Modified EXE file                    
  147. ECHO '
  148. ECHO ' If you have reviewed this .BAT file and agree to take the sole 
  149. ECHO ' responsibility for what is about to happen .....
  150. PAUSE
  151. CLS  
  152. ECHO ON
  153. RENAME RBBS-VAR.BAS RBBS-VAR.OLD
  154. COPY RVAR%1.BAS RBBS-VAR.BAS
  155. BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS  
  156. CLS
  157. BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS   
  158. CLS
  159. BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  160. ECHO OFF
  161. IF QB2.00 == %2 GOTO QB2MAIN
  162. IF QB2.01 == %2 GOTO QB2MAIN
  163. IF IBM2.00 == %2 GOTO IBMMAIN
  164. ECHO ON
  165. BASCOM R-PC%1.BAS,,NUL,/E/C:4096/O;
  166. ECHO OFF
  167. GOTO MAINEND
  168. :QB2MAIN
  169. ECHO ON
  170. QB R-PC%1.BAS /E /C:4096 /O;
  171. ECHO OFF
  172. GOTO MAINEND
  173. :IBMMAIN
  174. ECHO ON
  175. BASCOM R-PC%1.BAS,,NUL,/E/C:4096/O/N;
  176. ECHO OFF
  177. :MAINEND
  178. ECHO ' If any errors were detected in this compile, terminate this batch job
  179. ECHO ' with Ctrl-Break as something is not correct.  Otherwise .....
  180. pause
  181. IF QB2.00 == %2 GOTO QB2SUB1
  182. IF QB2.01 == %2 GOTO QB2SUB1
  183. IF IBM2.00 == %2 GOTO IBMSUB1 
  184. ECHO ON
  185. BASCOM RSB1%1.BAS,,NUL,/X/C:4096/O;
  186. ECHO OFF
  187. GOTO SUB1END
  188. :QB2SUB1
  189. ECHO ON
  190. QB RSB1%1.BAS /X /C:4096 /O;
  191. ECHO OFF
  192. GOTO SUB1END
  193. :IBMSUB1
  194. ECHO ON
  195. BASCOM RSB1%1.BAS,,NUL,/X/C:4096/O/N;
  196. ECHO OFF
  197. :SUB1END
  198. ECHO ' If any errors were detected in this compile, terminate this batch job
  199. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  200. pause
  201. IF QB2.00 == %2 GOTO QB2SUB2
  202. IF QB2.01 == %2 GOTO QB2SUB2
  203. IF IBM2.00 == %2 GOTO IBMSUB2 
  204. ECHO ON
  205. BASCOM RSB2%1.BAS,,NUL,/C:4096/O/E;
  206. ECHO OFF
  207. GOTO SUB2END
  208. :QB2SUB2
  209. ECHO ON
  210. QB RSB2%1.BAS /C:4096 /O;
  211. ECHO OFF
  212. GOTO SUB2END
  213. :IBMSUB2
  214. ECHO ON
  215. BASCOM RSB2%1.BAS,,NUL,C:4096/O/N;
  216. ECHO OFF
  217. :SUB2END
  218. ECHO ' If any errors were detected in this compile, terminate this batch job
  219. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  220. pause
  221. IF QB2.00 == %2 GOTO QBLINK
  222. IF QB2.01 == %2 GOTO QBLINK
  223. IF IBM2.00 == %2 GOTO IBMLINK1
  224. ECHO ON
  225. LINK R-PC%1+RSB1%1+RSB2%1+GWCOM+QBARCV2+ANSI+XMODEM+RBBSML+BDRIVEC2+PC-NET+10-NET+RBBSDV+RBBSUTIL,,NUL,/E;
  226. ECHO OFF
  227. GOTO DELETER
  228. :QBLINK
  229. ECHO ON
  230. LINK R-PC%1+RSB1%1+RSB2%1+PREFIX+GWCOM+QBARCV2+ANSI+XMODEM+RBBSML+BDRIVEC2+PC-NET+10-NET+RBBSDV+RBBSUTIL,,NUL,;
  231. ECHO OFF
  232. GOTO DELETER
  233. :IBMLINK1
  234. LINK R-PC%1+RSB1%1+RSB2%1+IBMCOM+QBARCV2+ANSI+XMODEM+RBBSML+BDRIVEC2+PC-NET+10-NET+RBBSDV+RBBSUTIL,,NUL,;
  235. :DELETER
  236. ECHO ON
  237. DEL R-PC%1.OBJ
  238. DEL RSB1%1.OBJ
  239. DEL RSB2%1.OBJ
  240. CLS
  241. ECHO ON
  242. BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS   
  243. ECHO OFF
  244. CLS
  245. IF QB2.00 == %2 GOTO QBCNFG
  246. IF QB2.01 == %2 GOTO QBCNFG
  247. IF IBM2.00 == %2 GOTO IBMCNFG
  248. ECHO ON
  249. BASCOM CNFG%1.BAS,,NUL,/E/C:4096/O;
  250. ECHO OFF
  251. GOTO CNFGEND
  252. :QBCNFG
  253. ECHO ON
  254. QB CNFG%1.BAS /E/C:4096/O;
  255. ECHO OFF
  256. GOTO CNFGEND
  257. :IBMCNFG
  258. ECHO ON
  259. BASCOM CNFG%1.BAS,,NUL,/E/C:4096/O/N;
  260. ECHO OFF
  261. :CNFGEND
  262. ECHO ' If any errors were detected in this compile, terminate this batch job
  263. ECHO ' with Ctrl-Break as something is not correct.  Otherwise .....
  264. pause
  265. CLS
  266. ECHO ON
  267. BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS   
  268. ECHO OFF
  269. CLS
  270. IF QB2.00 == %2 GOTO QBCNFG1
  271. IF QB2.01 == %2 GOTO QBCNFG1
  272. IF IBM2.00 == %2 GOTO IBMCNFG1
  273. ECHO ON
  274. BASCOM CSUB%1.BAS,,NUL,/E/C:4096/O;
  275. ECHO OFF
  276. GOTO CNFGEND1
  277. :QBCNFG1
  278. ECHO ON
  279. QB CSUB%1.BAS /E/C:4096/O;
  280. ECHO OFF
  281. GOTO CNFGEND1
  282. :IBMCNFG1
  283. ECHO ON
  284. BASCOM CSUB1%1.BAS,,NUL,/E/C:4096/O/N;
  285. ECHO OFF
  286. :CNFGEND1
  287. ECHO ' If any errors were detected in this compile, terminate this batch job
  288. ECHO ' with Ctrl-Break as something is not correct.  Otherwise .....
  289. pause
  290. IF IBM2.00 == %2 GOTO IBMLINK2
  291. ECHO ON
  292. LINK CNFG%1+CSUB%1+GWCOM+RBBSUTIL,,NUL,;
  293. ECHO OFF
  294. GOTO DELETEC
  295. :IBMLINK2
  296. ECHO ON
  297. LINK CNFG%1+CSUB%1+IBMCOM+RBBSUTIL,,NUL,;
  298. ECHO OFF
  299. :DELETEC
  300. ECHO ON
  301. DEL CNFG%1.OBJ
  302. DEL CSUB%1.OBJ
  303. CLS
  304. ECHO OFF
  305. ECHO ' Before using anything created by this .BAT file, make backup copies
  306. ECHO ' of all files that you can not easily re-create.
  307. ECHO ON
  308. RENAME RBBS-PC.BAS RBBS-PC.OLD
  309. RENAME R-PC%1.BAS RBBS-PC.BAS
  310. RENAME RBBSSUB1.BAS RBBSSUB1.OLD
  311. RENAME RBBSSUB2.BAS RBBSSUB2.OLD
  312. RENAME RSB1%1.BAS RBBSSUB1.BAS
  313. RENAME RSB2%1.BAS RBBSSUB2.BAS
  314. RENAME CONFIG.BAS CONFIG.OLD
  315. RENAME CNFG%1.BAS CONFIG.BAS
  316. RENAME CNFG-SUB.BAS CNFG-SUB.OLD
  317. RENAME CSUB%1.BAS CNFG-SUB.BAS
  318. RENAME RBBS-PC.EXE RBBS-EXE.OLD
  319. RENAME R-PC%1.EXE RBBS-PC.EXE
  320. RENAME CONFIG.EXE CNFG-EXE.OLD
  321. RENAME CNFG%1.EXE CONFIG.EXE
  322. :END
  323.